home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / textwndw.swg / 0010_Get TextAttr Colors.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-02  |  285 b   |  15 lines
  1. {
  2. KELLY SMALL
  3.  
  4. >Get the foreground/background/blink attr out of TextAttr.
  5.  
  6. Assuming you're using TP/BP:
  7. }
  8.  
  9. Procedure GetColor(Var f, b : Byte; Var BlinkOn : Boolean);
  10. begin
  11.   f := TextAttr And $F;
  12.   b := (TextAttr Shr 4) And 7;
  13.   BlinkOn := TextAttr And $80 = $80;
  14. end;
  15.